home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS11.ADF / AmigaBasicProgs / TicTacToe.MSB (.txt) < prev    next >
AmigaBASIC Source Code  |  1986-08-05  |  13KB  |  496 lines
  1. CLS
  2. WINDOW 2,,,0
  3. WINDOW OUTPUT 2
  4. RANDOMIZE TIMER
  5. PALETTE 0,0.4,0,0
  6. PALETTE 1,1,1,1 
  7. LOCATE 6,28
  8. PRINT "* *  TIC  TAC  TOE  * *"
  9. LOCATE 14,10
  10. PRINT "Do you want Amy to talk to you during the game?  (Y or N)?"
  11. LOCATE 16,4
  12. PRINT "(If you select 'Y', then you must have the Workbench disk in the drive.)"
  13. LOCATE 20,30
  14. PRINT "Press 'Y' or 'N'"
  15. talkornot:
  16.   talk$=UCASE$(INKEY$)
  17.   IF talk$="" THEN GOTO talkornot
  18.   IF talk$="Y" THEN a$=" ":GOSUB onemom:GOSUB t:GOTO maintitle
  19.   IF talk$="N" THEN GOTO maintitle
  20.   GOTO talkornot
  21.   
  22. maintitle:  
  23. CLS
  24. PALETTE 0,0.4,0,0 
  25. PALETTE 2,0,0,1
  26. COLOR(2)
  27.  
  28. AREA (40,35) 
  29. AREA (135,20)
  30. AREA (100,40)
  31. AREA (70,90)
  32. AREA (80,45)
  33. AREAFILL
  34. AREA (160,25)
  35. AREA (170,60)
  36. AREA (165,95)
  37. AREA (150,60)
  38. AREAFILL
  39. AREA (210,25)
  40. AREA (290,15)
  41. AREA (230,30)
  42. AREA (225,80)
  43. AREA (290,75)
  44. AREA (200,90)
  45. AREA (220,55)
  46. AREAFILL
  47. AREA (330,15)
  48. AREA (450,5)
  49. AREA (410,15)
  50. AREA (360,80)
  51. AREA (380,20)
  52. AREAFILL
  53. AREA (460,10)
  54. AREA (480,65)
  55. AREA (460,50)
  56. AREA (430,55)
  57. AREA (400,75)
  58. AREAFILL
  59. AREA (510,10)
  60. AREA (600,10)
  61. AREA (540,20)
  62. AREA (535,65)
  63. AREA (580,75)
  64. AREA (500,70)
  65. AREAFILL
  66. AREA (180,115)
  67. AREA (310,100)
  68. AREA (250,120)
  69. AREA (260,155)
  70. AREA (230,125)
  71. AREAFILL
  72. AREA (320,105)
  73. AREA (410,90)
  74. AREA (370,150)
  75. AREA (285,155)
  76. AREAFILL
  77. AREA (430,95)
  78. AREA (520,85)
  79. AREA (440,110)
  80. AREA (470,115)
  81. AREA (420,130)
  82. AREA (485,135)
  83. AREA (390,160)
  84. AREAFILL
  85. COLOR(0)
  86. AREA (345,117)
  87. AREA (370,115)
  88. AREA (360,135)
  89. AREA (330,140)
  90. AREAFILL
  91. AREA (455,30)
  92. AREA (460,45)
  93. AREA (440,45)
  94. AREAFILL
  95.  
  96. COLOR(1)
  97. LOCATE 21,30
  98. PRINT "by KIP H. HAMMOND"
  99. a$="amy is now ready to chalenge you at tic tac toe!"
  100. GOSUB t
  101. a$="if you are ready   then press  i  for instrukshuns,  or  p  to play."
  102. GOSUB t
  103. LOCATE 23,17
  104. PRINT "Press 'I' for Instructions, or 'P' to Play."
  105.  
  106. wait1:
  107.   zz$=UCASE$(INKEY$)
  108.   IF zz$="I" THEN GOTO instructions
  109.   IF zz$="P" THEN GOTO difficulty
  110.   GOTO wait1
  111.  
  112. instructions:
  113.   CLS
  114.   LINE (100,15)-(530,70),1,b
  115.   PALETTE 2,0,0.4,0
  116.   PAINT STEP (-10,-10),2,1
  117.   LOCATE 4,25
  118.   PRINT "Play TIC TAC TOE against Amy !!"
  119.   LOCATE 6,39:PRINT "by"
  120.   LOCATE 8,33
  121.   PRINT "Kip H. Hammond"
  122.  
  123.   LINE (305,85)-(305,130)
  124.   LINE (345,85)-(345,130)
  125.   LINE (265,100)-(380,100)
  126.   LINE (265,115)-(380,115)
  127.   LOCATE 18,29
  128.   PRINT "You are 'X' and Amy is 'O'."
  129.   LOCATE 20,9
  130.   PRINT "When it is your turn to play, select the placement of your mark" 
  131.   LOCATE 21,6
  132.   PRINT "with the mouse, and make your mark by pressing the left mouse button."
  133. a$="you are  x":GOSUB t:a$="and amy is o!":GOSUB t
  134. a$="when it is your turn to play   suh lect the playcement of your mark with the mouse."
  135. GOSUB t
  136. a$="and make your mark by pressing the left mouse button!"
  137. GOSUB t
  138. a$="when you are ready  press any key to continue!"
  139. GOSUB t
  140.   LOCATE 23,29
  141.   PRINT "Press any key to continue."
  142.   
  143. wait2:
  144.   zz$=INKEY$
  145.   IF zz$="" GOTO wait2
  146.   
  147. difficulty:
  148.   CLS
  149.   LOCATE 5,10
  150.   PRINT "Choose your difficulty level:"
  151.   LOCATE 10,15
  152.   PRINT "A - EASY  (Amy will be dumb! You should win easily.)"
  153.   LOCATE 12,15
  154.   PRINT "B - MEDIUM  (Amy will have some smarts...but you can still win.)"
  155.   LOCATE 14,15
  156.   PRINT "C - HARD  (Amy is a Genius...Impossible for you to win!!!)"
  157.   IF zz$="again" THEN a$="ok.  try  again!":GOTO jump
  158.   a$="ok       let's see how brave you are.   Suh lect your difficulty level!"
  159.   jump:
  160.   GOSUB t
  161.   LOCATE 18,20
  162.   PRINT "Select 'A', 'B', or 'C' on Amy's keyboard."
  163.   GOTO selectdif
  164.    
  165. selectdif:
  166.   dif$=UCASE$(INKEY$)
  167.   IF dif$="A" THEN a$="you are really a chicken.   OK       if that's the way you want it!":GOSUB t
  168.   IF dif$="B" THEN a$="glad to see that you have some kurrage!   you can win but you had better play carefully!":GOSUB t
  169.   IF dif$="C" THEN a$="you must be crazy!      you can not win!      amy is a geen yus!       hang on to your hat.      here we go!":GOSUB t
  170.   IF dif$="A" OR dif$="B" OR dif$="C" THEN GOTO newgame
  171.   GOTO selectdif
  172.  
  173. newgame:  
  174.   GOSUB drawgrid
  175.   e=0:f=0:g=0:h=0:i=0:j=0:k=0:l=0:m=0
  176.   
  177. startplay:
  178.   w=0
  179.   GOSUB yourplay
  180.   GOSUB wincheck
  181.   IF w=1 GOTO youwin
  182.   IF w=3 GOTO catwins
  183.   GOSUB amysplay
  184.   GOSUB wincheck
  185.   IF w=1 THEN GOTO youwin
  186.   IF w=2 THEN GOTO amywins
  187.   IF w=3 THEN GOTO catwins
  188.   GOTO startplay
  189.  
  190. youwin:
  191.   FOR delay=0 TO 6000:NEXT
  192.   CLS
  193.   LOCATE 10,35
  194.   PRINT "YOU WIN !!!"
  195.   w=INT(RND*10)
  196.   IF w=0 THEN a$="i bet you think that you are pretty smart?"   
  197.   IF w=1 THEN a$="you are not as smart as i look.     in fact you are ugly!"
  198.   IF w=2 THEN a$="you big   ugly   dummy!   why don't you play a real human's game?"
  199.   IF w=3 THEN a$="you are so stupid.     i bet you think you are really radical!"
  200.   IF w=4 THEN a$="ho ho ho hah hah hah.    i let you win.   why don't you play a harder level?"
  201.   IF w=5 THEN a$="you are a lou zee stupid player.   and ugly too."
  202.   IF w=6 THEN a$="you are so ugly that you make frank in stine look good!"
  203.   IF w=7 THEN a$="your bad brehth is fogg ging my screen.   and you are a chicken too!"
  204.   IF w=8 THEN a$="you are such a fraidy cat. why don't you play a harder level?"
  205.   IF w=9 THEN a$="cluck   cluck   cluck    you are a su per chicken.    try a harder level!"
  206.   GOSUB t
  207.   a$="how about another game?":GOSUB t    
  208.   GOTO again
  209.   END
  210.   
  211. amywins:
  212.   FOR delay=0 TO 6000:NEXT
  213.   CLS
  214.   LOCATE 10,35
  215.   PRINT "AMY WON !!!"
  216.   w=INT(RND*10)
  217.   IF w=0 THEN a$="you must feel really stupid."   
  218.   IF w=1 THEN a$="i am only a  bucket of bolts   and i beet you!"
  219.   IF w=2 THEN a$="i am such a geen yus   and i am good looking too!"
  220.   IF w=3 THEN a$="you are so stupid.     try to play better next time!"
  221.   IF w=4 THEN a$="ho ho ho hah hah hah.    humans are so inntellectuallee  infeeereeeor"
  222.   IF w=5 THEN a$="you are a lou zee stupid player.   and ugly too."
  223.   IF w=6 THEN a$="you are so ugly that you make phyllis diller look good!"
  224.   IF w=7 THEN a$="who told you that you could play this game?  you are really bad!"
  225.   IF w=8 THEN a$="this is too easy for me to win! is there a smarter player in the house?"
  226.   IF w=9 THEN a$="cluck   cluck   cluck    you are a super chicken.    and a louzee player!"
  227.   GOSUB t
  228.   a$="how about another game?":GOSUB t    
  229.   GOTO again
  230.   END
  231.   
  232. catwins:
  233.   FOR delay=0 TO 6000:NEXT
  234.   CLS
  235.   LOCATE 10,35
  236.   PRINT "THE CAT WON !!!"
  237.   a$="me yaaow":GOSUB t:a$="how about another game?"
  238.   GOSUB t
  239.   GOTO again
  240.    
  241.      
  242. again:
  243.   LOCATE 14,17
  244.   PRINT "Press 'Q' to quit, any other key to play again."
  245.   zz$=UCASE$(INKEY$)
  246.   IF zz$="Q" THEN WINDOW CLOSE 2:PALETTE 0,0,0,0.5:END
  247.   IF zz$="" THEN GOTO again
  248.   zz$="again"
  249.   GOTO difficulty
  250.  
  251.  
  252. wincheck:
  253.   IF e=1 AND f=1 AND g=1 THEN w=1:RETURN
  254.   IF h=1 AND i=1 AND j=1 THEN w=1:RETURN
  255.   IF k=1 AND l=1 AND m=1 THEN w=1:RETURN
  256.   IF e=1 AND h=1 AND k=1 THEN w=1:RETURN
  257.   IF f=1 AND i=1 AND l=1 THEN w=1:RETURN
  258.   IF g=1 AND j=1 AND m=1 THEN w=1:RETURN
  259.   IF e=1 AND i=1 AND m=1 THEN w=1:RETURN
  260.   IF k=1 AND i=1 AND g=1 THEN w=1:RETURN
  261.   IF e=2 AND f=2 AND g=2 THEN w=2:RETURN
  262.   IF h=2 AND i=2 AND j=2 THEN w=2:RETURN
  263.   IF k=2 AND l=2 AND m=2 THEN w=2:RETURN
  264.   IF e=2 AND h=2 AND k=2 THEN w=2:RETURN
  265.   IF f=2 AND i=2 AND l=2 THEN w=2:RETURN
  266.   IF g=2 AND j=2 AND m=2 THEN w=2:RETURN
  267.   IF e=2 AND i=2 AND m=2 THEN w=2:RETURN
  268.   IF k=2 AND i=2 AND g=2 THEN w=2:RETURN
  269.   IF e+f+g+h+i+j+k+l+m=13 THEN w=3:RETURN
  270.   RETURN
  271.         
  272. drawgrid:
  273.   CLS
  274.   LINE (260,20)-(267,155),1,bf
  275.   LINE (365,20)-(372,155),1,bf
  276.   LINE (160,65)-(470,68),1,bf
  277.   LINE (160,110)-(470,113),1,bf
  278.   RETURN
  279.   
  280. yourplay:
  281.   LOCATE 23,36
  282.   PRINT "YOUR MOVE                     "
  283.   GOSUB checkmouse
  284.   GOSUB checkc
  285.   IF c=0 GOTO yourplay
  286.   GOSUB makex
  287.   RETURN
  288.  
  289. amysplay:
  290.   LOCATE 23,36
  291.   PRINT "AMY'S MOVE (She is thinking.)"
  292.   FOR delay=0 TO 3000:NEXT
  293.   d=0
  294.   GOSUB amythinks
  295.   GOSUB checkd
  296.   GOSUB makeo 
  297.   RETURN
  298.  
  299. checkd:
  300.   IF d=1 THEN e=2
  301.   IF d=2 THEN f=2
  302.   IF d=3 THEN g=2
  303.   IF d=4 THEN h=2
  304.   IF d=5 THEN i=2 
  305.   IF d=6 THEN j=2
  306.   IF d=7 THEN k=2
  307.   IF d=8 THEN l=2
  308.   IF d=9 THEN m=2
  309.   RETURN
  310.   
  311.  
  312. makeo:
  313.   IF d=1 THEN a=210:b=42
  314.   IF d=2 THEN a=316:b=42
  315.   IF d=3 THEN a=421:b=42
  316.   IF d=4 THEN a=210:b=89
  317.   IF d=5 THEN a=316:b=89
  318.   IF d=6 THEN a=421:b=89
  319.   IF d=7 THEN a=210:b=135
  320.   IF d=8 THEN a=316:b=135
  321.   IF d=9 THEN a=421:b=135
  322.   CIRCLE (a,b),27,,,,0.55
  323.   CIRCLE (a,b),17,,,,0.55
  324.   PAINT STEP (20,0),3,1
  325.   RETURN
  326.   
  327. amythinks:
  328.   IF e+f+g+h+i+j+k+l+m=1 THEN GOSUB firstmove:RETURN
  329.   IF dif$="A" THEN GOTO easy
  330.   IF e=2 AND g=2 AND f=0 THEN d=2:RETURN
  331.   IF e=2 AND f=2 AND g=0 THEN d=3:RETURN
  332.   IF f=2 AND g=2 AND e=0 THEN d=1:RETURN
  333.   IF h=2 AND j=2 AND i=0 THEN d=5:RETURN
  334.   IF h=2 AND i=2 AND j=0 THEN d=6:RETURN
  335.   IF i=2 AND j=2 AND h=0 THEN d=4:RETURN
  336.   IF k=2 AND m=2 AND l=0 THEN d=8:RETURN
  337.   IF k=2 AND l=2 AND m=0 THEN d=9:RETURN
  338.   IF l=2 AND m=2 AND k=0 THEN d=7:RETURN
  339.   IF e=2 AND k=2 AND h=0 THEN d=4:RETURN
  340.   IF e=2 AND h=2 AND k=0 THEN d=7:RETURN
  341.   IF h=2 AND k=2 AND e=0 THEN d=1:RETURN
  342.   IF f=2 AND l=2 AND i=0 THEN d=5:RETURN
  343.   IF f=2 AND i=2 AND l=0 THEN d=8:RETURN
  344.   IF i=2 AND l=2 AND f=0 THEN d=2:RETURN
  345.   IF g=2 AND m=2 AND j=0 THEN d=6:RETURN
  346.   IF g=2 AND j=2 AND m=0 THEN d=9:RETURN
  347.   IF j=2 AND m=2 AND g=0 THEN d=3:RETURN
  348.   IF e=2 AND m=2 AND i=0 THEN d=5:RETURN
  349.   IF e=2 AND i=2 AND m=0 THEN d=9:RETURN
  350.   IF i=2 AND m=2 AND e=0 THEN d=1:RETURN
  351.   IF k=2 AND g=2 AND i=0 THEN d=5:RETURN
  352.   IF k=2 AND i=2 AND g=0 THEN d=3:RETURN
  353.   IF i=2 AND g=2 AND k=0 THEN d=7:RETURN
  354.   IF e=1 AND g=1 AND f=0 THEN d=2:RETURN
  355.   IF e=1 AND f=1 AND g=0 THEN d=3:RETURN
  356.   IF f=1 AND g=1 AND e=0 THEN d=1:RETURN
  357.   IF h=1 AND j=1 AND i=0 THEN d=5:RETURN
  358.   IF h=1 AND i=1 AND j=0 THEN d=6:RETURN
  359.   IF i=1 AND j=1 AND h=0 THEN d=4:RETURN
  360.   IF k=1 AND m=1 AND l=0 THEN d=8:RETURN
  361.   IF k=1 AND l=1 AND m=0 THEN d=9:RETURN
  362.   IF l=1 AND m=1 AND k=0 THEN d=7:RETURN
  363.   IF e=1 AND k=1 AND h=0 THEN d=4:RETURN
  364.   IF e=1 AND h=1 AND k=0 THEN d=7:RETURN
  365.   IF h=1 AND k=1 AND e=0 THEN d=1:RETURN
  366.   IF f=1 AND l=1 AND i=0 THEN d=5:RETURN
  367.   IF f=1 AND i=1 AND l=0 THEN d=8:RETURN
  368.   IF i=1 AND l=1 AND f=0 THEN d=2:RETURN
  369.   IF g=1 AND m=1 AND j=0 THEN d=6:RETURN
  370.   IF g=1 AND j=1 AND m=0 THEN d=9:RETURN
  371.   IF j=1 AND m=1 AND g=0 THEN d=3:RETURN
  372.   IF e=1 AND m=1 AND i=0 THEN d=5:RETURN
  373.   IF e=1 AND i=1 AND m=0 THEN d=9:RETURN
  374.   IF i=1 AND m=1 AND e=0 THEN d=1:RETURN
  375.   IF k=1 AND g=1 AND i=0 THEN d=5:RETURN
  376.   IF k=1 AND i=1 AND g=0 THEN d=3:RETURN
  377.   IF i=1 AND g=1 AND k=0 THEN d=7:RETURN
  378.   IF dif$="B" THEN GOTO easy
  379.   IF e+f+g+h+i+j+k+l+m=4 THEN GOSUB hard:RETURN
  380.   easy:
  381.   IF e=0 THEN d=1:RETURN
  382.   IF f=0 THEN d=2:RETURN
  383.   IF g=0 THEN d=3:RETURN
  384.   IF h=0 THEN d=4:RETURN
  385.   IF i=0 THEN d=5:RETURN
  386.   IF j=0 THEN d=6:RETURN
  387.   IF k=0 THEN d=7:RETURN
  388.   IF l=0 THEN d=8:RETURN
  389.   IF m=0 THEN d=9:RETURN
  390.   RETURN
  391.   
  392. firstmove:
  393.   IF e=1 OR g=1 OR k=1 OR m=1 THEN d=5:RETURN
  394.   IF i=1 THEN d=1:RETURN
  395.   IF f=1 OR j=1 OR h=1 OR l=1 THEN d=5:RETURN
  396.   RETURN
  397.  
  398.     
  399. hard:
  400.   IF f=1 AND j=1 THEN d=3:RETURN
  401.   IF j=1 AND l=1 THEN d=9:RETURN
  402.   IF h=1 AND l=1 THEN d=7:RETURN
  403.   IF h=1 AND f=1 THEN d=1:RETURN
  404.   IF f=1 AND l=1 THEN d=1:RETURN
  405.   IF h=1 AND j=1 THEN d=1:RETURN
  406.   IF i=1 AND m=1 THEN d=3:RETURN
  407.   IF g=1 AND h=1 THEN d=8:RETURN
  408.   IF g=1 AND l=1 THEN d=4:RETURN
  409.   IF e=1 AND j=1 THEN d=8:RETURN
  410.   IF e=1 AND l=1 THEN d=6:RETURN
  411.   IF f=1 AND m=1 THEN d=4:RETURN
  412.   IF h=1 AND m=1 THEN d=2:RETURN
  413.   IF f=1 AND k=1 THEN d=6:RETURN
  414.   IF j=1 AND k=1 THEN d=2:RETURN
  415.   IF e=1 AND m=1 THEN d=2:RETURN
  416.   IF g=1 AND k=1 THEN d=2:RETURN
  417.   RETURN
  418.   
  419.   
  420.   
  421.     
  422.  
  423. checkmouse:  
  424.   c=0
  425.   IF MOUSE(0)<>0 AND MOUSE(5)>160 AND MOUSE(5)<260 AND MOUSE(6)>20 AND MOUSE(6)<65 THEN c=1
  426.   IF MOUSE(0)<>0 AND MOUSE(5)>267 AND MOUSE(5)<365 AND MOUSE(6)>20 AND MOUSE(6)<65 THEN c=2
  427.   IF MOUSE(0)<>0 AND MOUSE(5)>372 AND MOUSE(5)<470 AND MOUSE(6)>20 AND MOUSE(6)<65 THEN c=3
  428.   IF MOUSE(0)<>0 AND MOUSE(5)>160 AND MOUSE(5)<260 AND MOUSE(6)>68 AND MOUSE(6)<110 THEN c=4
  429.   IF MOUSE(0)<>0 AND MOUSE(5)>267 AND MOUSE(5)<365 AND MOUSE(6)>68 AND MOUSE(6)<110 THEN c=5
  430.   IF MOUSE(0)<>0 AND MOUSE(5)>372 AND MOUSE(5)<470 AND MOUSE(6)>68 AND MOUSE(6)<110 THEN c=6
  431.   IF MOUSE(0)<>0 AND MOUSE(5)>160 AND MOUSE(5)<260 AND MOUSE(6)>113 AND MOUSE(6)<155 THEN c=7
  432.   IF MOUSE(0)<>0 AND MOUSE(5)>267 AND MOUSE(5)<365 AND MOUSE(6)>113 AND MOUSE(6)<155 THEN c=8
  433.   IF MOUSE(0)<>0 AND MOUSE(5)>372 AND MOUSE(5)<470 AND MOUSE(6)>113 AND MOUSE(6)<155 THEN c=9
  434.   IF c=0 THEN GOTO checkmouse
  435.   RETURN
  436.   
  437. checkc:
  438.   IF c=1 AND e=1 THEN c=0:RETURN
  439.   IF c=1 AND e=2 THEN c=0:RETURN
  440.   IF c=1 THEN a=180:b=27:e=1:RETURN
  441.   IF c=2 AND f=1 THEN c=0:RETURN
  442.   IF c=2 AND f=2 THEN c=0:RETURN
  443.   IF c=2 THEN a=287:b=27:f=1:RETURN
  444.   IF c=3 AND g=1 THEN c=0:RETURN
  445.   IF c=3 AND g=2 THEN c=0:RETURN
  446.   IF c=3 THEN a=392:b=27:g=1:RETURN
  447.   IF c=4 AND h=1 THEN c=0:RETURN
  448.   IF c=4 AND h=2 THEN c=0:RETURN
  449.   IF c=4 THEN a=180:b=75:h=1:RETURN
  450.   IF c=5 AND i=1 THEN c=0:RETURN
  451.   IF c=5 AND i=2 THEN c=0:RETURN
  452.   IF c=5 THEN a=287:b=75:i=1:RETURN
  453.   IF c=6 AND j=1 THEN c=0:RETURN
  454.   IF c=6 AND j=2 THEN c=0:RETURN
  455.   IF c=6 THEN a=392:b=75:j=1:RETURN
  456.   IF c=7 AND k=1 THEN c=0:RETURN
  457.   IF c=7 AND k=2 THEN c=0:RETURN
  458.   IF c=7 THEN a=180:b=120:k=1:RETURN
  459.   IF c=8 AND l=1 THEN c=0:RETURN
  460.   IF c=8 AND l=2 THEN c=0:RETURN
  461.   IF c=8 THEN a=287:b=120:l=1:RETURN
  462.   IF c=9 AND m=1 THEN c=0:RETURN
  463.   IF c=9 AND m=2 THEN c=0:RETURN
  464.   IF c=9 THEN a=392:b=120:m=1:RETURN
  465.   
  466.   
  467.     
  468. makex:
  469.   LINE (a,b)-(a+20,b+15)
  470.   LINE (a+20,b+15)-(a,b+30)
  471.   LINE (a,b+30)-(a+15,b+30)
  472.   LINE (a+15,b+30)-(a+30,b+20)
  473.   LINE (a+30,b+20)-(a+45,b+30)
  474.   LINE (a+45,b+30)-(a+60,b+30)
  475.   LINE (a+60,b+30)-(a+40,b+15)
  476.   LINE (a+40,b+15)-(a+60,b)
  477.   LINE (a+60,b)-(a+45,b)
  478.   LINE (a+45,b)-(a+30,b+10)
  479.   LINE (a+30,b+10)-(a+15,b)
  480.   LINE (a+15,b)-(a,b)
  481.   PAINT STEP (10,5),3,1
  482.   RETURN
  483.  
  484. t:
  485.   IF talk$="N" THEN RETURN
  486.   a$=TRANSLATE$(a$)
  487.   SAY a$ 
  488.   RETURN
  489.   
  490. onemom:
  491.   CLS
  492.   LOCATE 10,32
  493.   PRINT "One Moment Please."
  494.   RETURN
  495.              
  496.